home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 232_01 / pen.st < prev    next >
Encoding:
Text File  |  1987-06-15  |  2.1 KB  |  118 lines
  1. "
  2.     the following use the primitives interfacing to the plot(3)
  3.     routines
  4. "
  5.  
  6. " pen - a simple drawing instrument "
  7. Class Pen
  8. | x y up direction |
  9. [
  10.     new
  11.         self up.
  12.         self direction: 0.0.
  13.         self goTo: 100 @ 100.
  14. |
  15.     circleRadius: rad
  16.         <primitive 174 x y rad>
  17. |
  18.     direction
  19.         ^ direction
  20. |
  21.     direction: radians
  22.         direction <- radians
  23. |
  24.     down
  25.         up <- false.
  26. |
  27.     erase    
  28.         <primitive 170>
  29. |
  30.     extent: lowerLeft to: upperRight
  31.         <primitive 176 (lowerLeft x) (lowerLeft y)
  32.             (upperRight x) (upperRight y)>
  33. |
  34.     go: anAmount        | newx newy |
  35.         newx <- (direction radians sin * anAmount) rounded + x.
  36.         newy <- (direction radians cos * anAmount) rounded + y.
  37.         self goTo: newx @ newy
  38. |
  39.     goTo: aPoint
  40.         up ifFalse: [<primitive 177 x y (aPoint x) (aPoint y)>].
  41.         x <- aPoint x.
  42.         y <- aPoint y.
  43. |
  44.     isUp
  45.         ^ up
  46. |
  47.     location
  48.         ^ x @ y
  49. |
  50.     turn: radians
  51.         direction <- direction + radians
  52. |
  53.     up
  54.         up <- true.
  55. ]
  56.  
  57. " penSave - a way to save the drawings made by a pen "
  58. Class PenSave    :Pen
  59. | saveForm |
  60. [
  61.     setForm: aForm
  62.         saveForm <- aForm
  63. |
  64.     goTo: aPoint
  65.         (self isUp)
  66.             ifTrue: [ super goTo: aPoint ]
  67.             ifFalse: [ saveForm add: self location to: aPoint.
  68.                     self up.
  69.                     super goTo: aPoint.
  70.                     self down ]
  71. ]
  72.  
  73. " Form - a collection of lines "
  74. Class Form
  75. | lines |
  76. [
  77.     new
  78.         lines <- Bag new
  79. |
  80.     add: startingPoint to: endingPoint
  81.         lines add: ( Point new ;
  82.                 x: startingPoint ;
  83.                 y: endingPoint )
  84. |
  85.     with: aPen displayAt: location    | xOffset yOffset sPoint ePoint |
  86.         xOffset <- location x.
  87.         yOffset <- location y.
  88.         lines do: [:pair |
  89.             sPoint <- pair x.
  90.             ePoint <- pair y.
  91.             aPen up.
  92.             aPen goTo:
  93.                 (sPoint x + xOffset) @ (sPoint y + yOffset).
  94.             aPen down.
  95.             aPen goTo:
  96.                 (ePoint x + xOffset) @ (ePoint y + yOffset).
  97.             ].
  98. ]
  99. "
  100.     pen show - show off some of the capabilities of pens.
  101. "
  102. Class PenShow
  103. | bic |
  104. [
  105.     withPen: aPen
  106.         bic <- aPen
  107. |
  108.     poly: nSides length: length
  109.  
  110.         nSides timesRepeat:
  111.             [ bic go: length ;
  112.                 turn: 2 pi / nSides ]
  113. |
  114.     spiral: n angle: a
  115.         ( 1 to: n ) do:
  116.             [:i | bic go: i ; turn: a]
  117. ]
  118.